Developer CD Series 1994 August: Tool Chest

home *** CD-ROM | disk | FTP | other *** search

/ Developer CD Series 1994 August: Tool Chest / Dev.CD Aug 94.toast / Tool Chest / Interfaces / MPW Interfaces / AIncludes / Quickdraw.a < prev next >

Wrap

Text File | 1993-09-17 | 18.2 KB | 520 lines | [TEXT/MPS ]

; File: Quickdraw.a ; ; Copyright: © 1983-1993 by Apple Computer, Inc. ; All rights reserved. ; ; Version: System 7.1 for ETO #11 ; Created: Tuesday, March 30, 1993 18:00 ; ;___________________________________________________________________________ IF &TYPE('__INCLUDINGQUICKDRAW__') = 'UNDEFINED' THEN __INCLUDINGQUICKDRAW__ SET 1 ; Transfer modes srcCopy EQU 0 srcOr EQU 1 srcXor EQU 2 srcBic EQU 3 notSrcCopy EQU 4 notSrcOr EQU 5 notSrcXor EQU 6 notSrcBic EQU 7 patCopy EQU 8 patOr EQU 9 patXor EQU 10 patBic EQU 11 notPatCopy EQU 12 notPatOr EQU 13 notPatXor EQU 14 notPatBic EQU 15 ; Arithmetic transfer modes blend EQU 32 addPin EQU 33 addOver EQU 34 subPin EQU 35 adMax EQU 37 subOver EQU 38 adMin EQU 39 ; Special text mode grayishTextOr EQU 49 ditherCopy EQU 64 ;promote source to 32-bit and then dither down ; Flags passed to DeviceLoop singleDevicesBit EQU 0 dontMatchSeedsBit EQU 1 allDevicesBit EQU 2 singleDevices EQU 1 dontMatchSeeds EQU 2 allDevices EQU 4 ; Definitions for Font Style Bits (right to left) boldBit EQU 0 ; Transparent mode constant transparent EQU 36 italicBit EQU 1 ulineBit EQU 2 outlineBit EQU 3 shadowBit EQU 4 condenseBit EQU 5 extendBit EQU 6 ; FontInfo record ascent EQU 0 ; ascent [word] descent EQU 2 ; descent [word] widMax EQU 4 ; maximum width [word] leading EQU 6 ; leading [word] ; Rectangle structure topLeft EQU 0 ; upper left corner [point] botRight EQU 4 ; lower right corner [point] top EQU 0 ; top coordinate [word] left EQU 2 ; left coordinate [word] bottom EQU 4 ; bottom coordinate [word] right EQU 6 ; right coordinate [word] ; Bitmap Structure baseAddr EQU 0 ; bitmap base address [pointer] rowBytes EQU 4 ; row bytes (must be even) [word] bounds EQU 6 ; bounding box [rectangle] bitmapRec EQU 14 ; size of a bitmap ; Cursor Structure data EQU 0 ; visible bits [32 bytes] mask EQU $20 ; mask bits [32 bytes] hotSpot EQU $40 ; relative origin [point] cursRec EQU 68 ; size of a cursor ; PenState record psLoc EQU 0 ; pen location [point] psSize EQU 4 ; pen size [point] psMode EQU 8 ; pen mode [word] psPat EQU 10 ; pen [pattern] psRec EQU 18 ; size of pen state ; Polygon record polySize EQU 0 ; total bytes [word] polyBBox EQU 2 ; bounding box [rectangle] polyPoints EQU 10 ; vertices [Points] ; Region Structure rgnSize EQU 0 ; total bytes [word] rgnBBox EQU 2 ; bounding box [rectangle] rgnData EQU 10 ; region data [array] ; Picture Structure picSize EQU 0 ; total bytes [word] picFrame EQU 2 ; bounding box [rectangle] picData EQU 10 ; picture byte codes [array] OpenCPicParams RECORD 0 srcRect ds.w 4 hRes ds.l 1 vRes ds.l 1 version ds.w 1 reserved1 ds.w 1 reserved2 ds.l 1 ENDR ; QDProcs structure textProc EQU 0 ; [pointer] lineProc EQU 4 ; [pointer] rectProc EQU 8 ; [pointer] rRectProc EQU $C ; [pointer] ovalProc EQU $10 ; [pointer] arcProc EQU $14 ; [pointer] polyProc EQU $18 ; [pointer] rgnProc EQU $1C ; [pointer] bitsProc EQU $20 ; [pointer] commentProc EQU $24 ; [pointer] txMeasProc EQU $28 ; [pointer] getPicProc EQU $2C ; [pointer] putPicProc EQU $30 ; [pointer] qdProcsRec EQU $34 ; size of QDProcs record ; GrafPort Structure device EQU $0 ; device code [word] portBits EQU $2 ; port's bitmap [bitmap] portBounds EQU $8 ; bounding box of bitmap [rect] portRect EQU $10 ; port's rectangle [rect] visRgn EQU $18 ; visible region [handle] clipRgn EQU $1C ; clipping region [handle] bkPat EQU $20 ; background [pattern] fillPat EQU $28 ; fill [pattern] pnLoc EQU $30 ; pen location [point] pnSize EQU $34 ; pen size [point] pnMode EQU $38 ; pen mode [word] pnPat EQU $3A ; pen [pattern] pnVis EQU $42 ; pen visible [word] txFont EQU $44 ; text font [word] txFace EQU $46 ; text face [word] txMode EQU $48 ; text mode [word] txSize EQU $4A ; text size [word] spExtra EQU $4C ; space extra [fixed] fgColor EQU $50 ; foreground color mask [long] bkColor EQU $54 ; background color mask [long] colrBit EQU $58 ; color bit [word] patStretch EQU $5A ; pattern stretch [word] picSave EQU $5C ; picture being saved [handle] rgnSave EQU $60 ; region being saved [handle] polySave EQU $64 ; polygon being saved [handle] grafProcs EQU $68 ; QDProcs array [pointer] portRec EQU $6C ; size of grafport ; QuickDraw Global Variables GrafGlobals EQU 0 ; A5 offset to globptr thePort EQU 0 ;GrafPtr white EQU thePort-8 ;Pattern black EQU white-8 ;Pattern gray EQU black-8 ;Pattern ltGray EQU gray-8 ;Pattern dkGray EQU ltGray-8 ;Pattern arrow EQU dkGray-68 ;Cursor screenBits EQU arrow-14 ;BitMap randSeed EQU screenBits-4 ;LONGINT ; color manager equates ; RGBColor structure red EQU $0 ;red channel intensity [short] green EQU $2 ;green channel intensity[short] blue EQU $4 ;blue channel intensity [short] rgbColor EQU $6 ;size of record ; ColorSpec structure value EQU $0 ;value field [short] rgb EQU $2 ;rgb values [rgbColor] colorSpecSize EQU $8 ;size of record ; MatchRec structure ;red EQU $0 ;defined in RGBColor ;green EQU $2 ;defined in RGBColor ;blue EQU $4 ;defined in RGBColor matchData EQU $6 ; [long] matchRecSize EQU $A ; Color Separation normalBit EQU 0 ; normal screen mapping inverseBit EQU 1 ; inverse screen mapping redBit EQU 4 ; RGB additive mapping greenBit EQU 3 ; for photos from screen blueBit EQU 2 cyanBit EQU 8 ; CMYBk subtractive mapping yellowBit EQU 6 magentaBit EQU 7 ; for ink jet printer blackBit EQU 5 blackColor EQU 33 whiteColor EQU 30 redColor EQU 205 greenColor EQU 341 blueColor EQU 409 cyanColor EQU 273 magentaColor EQU 137 yellowColor EQU 69 ; Standard Picture Comments picLParen EQU 0 picRParen EQU 1 ; QuickDraw verbs frame EQU 0 paint EQU 1 erase EQU 2 invert EQU 3 fill EQU 4 ; QuickDraw private global variables wideOpen EQU randSeed-4 ;RgnHandle wideMaster EQU wideOpen-4 ;RgnPtr wideData EQU wideMaster-10 ;Fake Region rgnBuf EQU wideData-4 ;PointsHandle rgnIndex EQU rgnBuf-2 ;INTEGER rgnMax EQU rgnIndex-2 ;INTEGER playPic EQU rgnMax-4 ;Long qdSpare0 EQU playPic-2 ;unused word thePoly EQU qdSpare0-4 ;POLYHANDLE polyMax EQU thePoly-2 ;INTEGER patAlign EQU polyMax-4 ;Point fontAdj EQU patAlign-4 ;Fixed Point fontPtr EQU fontAdj-4 ;long, ^FMOutput record playIndex EQU fontPtr-4 ;long pnLocFixed EQU playIndex-2 ;word, horizontal pen fraction <9> qdRunSlop EQU pnLocFixed-4 ;fixed point, Script Mgr run slop <11><13> qdChExtra EQU qdRunSlop-4 ;fixed point, Script Mgr char extra <11><13> fontData EQU qdChExtra-12 ;unused words <9><11><13> lastGrafGlob EQU fontData grafSize EQU 4-lastGrafGlob ;total size in bytes ; A record version of the Quickdraw globals ; It is here rather than with the complementary equates because it needs other equates ; ...(bitmapRec, grafSize, cursRec) QDGlobals RECORD 0,DECREMENT thePort DS.L 1 white DS.B 8 black DS.B 8 gray DS.B 8 ltGray DS.B 8 dkGray DS.B 8 arrow DS.B cursRec screenBits DS.B bitmapRec randSeed DS.L 1 ORG -grafSize ENDR ;************** FROM HERE TO THE ENDIF IS ALL THE NEW STUFF FOR COLOR QUICKDRAW ************* hiliteBit EQU 7 ; flag bit in HiliteMode (lowMem flag) ; Equates for resource ID's defQDColors EQU 127 ; resource ID of clut for default QDColors ; ; PixMap field offsets pmBaseAddr EQU $0 ; [long] pmNewFlag EQU $4 ; [1 bit] upper bit of rowbytes is flag pmRowBytes EQU $4 ; [word] pmBounds EQU $6 ; [rect] pmVersion EQU $E ; [word] pixMap version number pmPackType EQU $10 ; [word] defines packing format pmPackSize EQU $12 ; [long] size of pixel data pmHRes EQU $16 ; [fixed] h. resolution (ppi) pmVRes EQU $1A ; [fixed] v. resolution (ppi) pmPixelType EQU $1E ; [word] defines pixel type pmPixelSize EQU $20 ; [word] # bits in pixel pmCmpCount EQU $22 ; [word] # components in pixel pmCmpSize EQU $24 ; [word] # bits per field pmPlaneBytes EQU $26 ; [long] offset to next plane pmTable EQU $2A ; [long] color map pmReserved EQU $2E ; [long] MUST BE 0 pmRec EQU $32 ; size of pixMap record ; pixel types chunky EQU 0 chunkyPlanar EQU 1 planar EQU 2 RGBDirect EQU 16 ; ; pmVersion values baseAddr32 EQU 4 ; pixmap base address is 32-bit address ; PixPat field offsets ; patType EQU $0 ; [word] type of pattern patMap EQU $2 ; [long] handle to pixmap patData EQU $6 ; [long] handle to data patXData EQU $A ; [long] handle to expanded pattern data patXValid EQU $E ; [word] flags whether expanded pattern valid patXMap EQU $10 ; [long] handle to expanded pattern data pat1Data EQU $14 ; [8 bytes] old-style pattern/RGB color ppRec EQU $1C ; size of pixPat record ; Pattern types ; oldPat EQU 0 ; foreground/background pattern newPat EQU 1 ; self-contained color pattern ditherPat EQU 2 ; rgb value to be dithered oldCrsrPat EQU $8000 ; old-style cursor cCrsrPat EQU $8001 ; new-style cursor ; additional offsets in a color GrafPort ; portPixMap EQU portBits ; [long] pixelMap handle portVersion EQU portPixMap+4 ; [word] port version number grafVars EQU portVersion+2 ; [long] handle to more fields chExtra EQU grafVars+4 ; [word] character extra pnLocHFrac EQU chExtra+2 ; [word] pen fraction bkPixPat EQU bkPat ; [long] handle to bk pattern rgbFgColor EQU bkPixPat+4 ; [6 bytes] RGB components of fg color rgbBkColor EQU rgbFgColor+6 ; [6 bytes] RGB components of bk color pnPixPat EQU pnPat ; [long] handle to pen's pattern fillPixPat EQU pnPixPat+4 ; [long] handle to fill pattern ; GDevice field offsets ; gdRefNum EQU $0 ; [word] unitNum of driver gdID EQU $2 ; [word] client ID for search procs gdType EQU $4 ; [word] fixed/CLUT/direct gdITable EQU $6 ; [long] handle to inverse table gdResPref EQU $A ; [word] preferred resolution for inverse tables gdSearchProc EQU $C ; [long] search proc (list?) pointer gdCompProc EQU $10 ; [long] complement proc (list?) pointer gdFlags EQU $14 ; [word] grafDevice flags word gdPMap EQU $16 ; [long] handle to pixMap describing device gdRefCon EQU $1A ; [long] reference value gdNextGD EQU $1E ; [long] handle of next gDevice gdRect EQU $22 ; [rect] device's bounds in global coordinates gdMode EQU $2A ; [long] device's current mode gdCCBytes EQU $2E ; [word] depth of expanded cursor data gdCCDepth EQU $30 ; [word] depth of expanded cursor data gdCCXData EQU $32 ; [long] handle to cursor's expanded data gdCCXMask EQU $36 ; [long] handle to cursor's expanded mask gdReserved EQU $3A ; [long] MUST BE 0 gdRec EQU $3E ; size of GrafDevice record ; VALUES FOR GDType clutType EQU 0 ; 0 if lookup table fixedType EQU 1 ; 1 if fixed table directType EQU 2 ; 2 if direct values ; BIT ASSIGNMENTS FOR GDFlags gdDevType EQU 0 ; 0 = monochrome; 1 = color hasAuxMenuBar EQU 06 ; 1 if device has an Aux menu bar on it BurstDevice EQU 07 ; 1 if this device support burst xfer ext32Device EQU 08 ; 1 if this device must be accessed in 32-bit mode frozenDevice EQU 09 ; reserved for future use ramInit EQU 10 ; 1 if initialized from 'scrn' resource mainScreen EQU 11 ; 1 if main screen allInit EQU 12 ; 1 if all devices initialized screenDevice EQU 13 ; 1 if screen device [not used] noDriver EQU 14 ; 1 if no driver for this GDevice screenActive EQU 15 ; 1 if in use ; CCrsr (Color Cursor) field offsets ; ; NOTE THAT THE FIRST FOUR FIELDS ARE PARALLEL TO THE FIRST FOUR FIELDS ; OF A PATTERN SO THAT PATCONVERT CAN BE USED TO EXPAND A CURSOR ; crsrType EQU 0 ;[WORD] CURSOR TYPE crsrMap EQU crsrType+2 ;[LONG] HANDLE TO CURSOR'S PIXMAP crsrData EQU crsrMap+4 ;[LONG] HANDLE TO CURSOR'S COLOR DATA crsrXData EQU crsrData+4 ;[LONG] HANDLE TO EXPANDED DATA crsrXValid EQU crsrXData+4 ;[WORD] DEPTH OF EXPANDED DATA (0 IF NONE) crsrXHandle EQU crsrXValid+2 ;[LONG] HANDLE FOR FUTURE USE crsr1Data EQU crsrXHandle+4 ;[16 WORDS] ONE-BIT DATA crsrMask EQU crsr1Data+32 ;[16 WORDS] ONE-BIT MASK crsrHotSpot EQU crsrMask+32 ;[POINT] HOT-SPOT FOR CURSOR crsrXTable EQU crsrHotSpot+4 ;[LONG] TABLE ID FOR EXPANDED DATA crsrID EQU crsrXTable+4 ;[LONG] ID FOR CURSOR crsrRec EQU crsrID+4 ;SIZE OF CURSOR SAVE AREA ; CIcon (Color Icon) field offsets ; iconPMap EQU 0 ;[PIXMAP] ICON'S PIXMAP iconMask EQU iconPMap+pmRec ;[BITMAP] 1-BIT VERSION OF ICON ONE-BIT MASK FOR ICON iconBMap EQU iconMask+bitmapRec ;[BITMAP] 1-BIT VERSION OF ICON iconData EQU iconBMap+bitmapRec ;[LONG] HANDLE TO PIXMAP DATA ;FOLLOWED BY BMAP AND MASK DATA iconRec EQU iconData+4 ;SIZE OF ICON HEADER ; ; Gamma Table format ; gVersion EQU 0 ; [word] gamma version number gType EQU gVersion+2 ; [word] gamma data type gFormulaSize EQU gType+2 ; [word] Formula data size gChanCnt EQU gFormulaSize+2 ; [word] number of channels of data gDataCnt EQU gChanCnt+2 ; [word] number of values/channel gDataWidth EQU gDataCnt+2 ; [word] bits/corrected value (data packed to next larger byte size) gFormulaData EQU gDataWidth+2 ; [array] data for formulas, followed by gamma values ; EXTENSIONS TO THE QDPROCS RECORD ; opcodeProc EQU $34 ; [pointer] newProc1 EQU $38 ; [pointer] newProc2 EQU $3C ; [pointer] newProc3 EQU $40 ; [pointer] newProc4 EQU $44 ; [pointer] newProc5 EQU $48 ; [pointer] newProc6 EQU $4C ; [pointer] cqdProcsRec EQU $50 ; size of QDProcs record ; OFFSETS WITHIN GRAFVARS: ; rgbOpColor EQU 0 ; [6 bytes] color for addPin, subPin and average rgbHiliteColor EQU rgbOpColor+6 ; [6 bytes] color for hiliting pmFgColor EQU rgbHiliteColor+6 ; [4 bytes] palette handle for foreground color pmFgIndex EQU pmFgColor+4 ; [2 bytes] index value for foreground pmBkColor EQU pmFgIndex+2 ; [4 bytes] palette handle for background color pmBkIndex EQU pmBkColor+4 ; [2 bytes] index value for background pmFlags EQU pmBkIndex+2 ; [2 bytes] flags for Palette Manager grafVarRec EQU pmFlags+2 ; size of grafVar record ; ColorTable field offsets ctSeed EQU 0 ; [long] id number for table transIndex EQU ctSeed+4 ; [word] index of transparent pixel (obsolete) ctFlags EQU ctSeed+4 ; [word] hibh bit: 0 = PixMap; 1 = device ctSize EQU ctFlags+2 ; [word] number of entries in CTTable ctTable EQU ctSize+2 ; [variant] array of color spec ctRec EQU ctTable ; size of record without color table ctEntrySize EQU 8 ; size of each entry in table minSeed EQU 1023 ; minimum seed value (< minSeed reserved for rsrc ID's) protectBit EQU 7 ; protect bit in device color table reserveBit EQU 6 ; reserve bit in device color table invalColReq EQU -1 ; invalid color table request ; CProcRec structure nxtComp EQU $0 ;link to next proc [pointer] compProc EQU $4 ;pointer to routine [pointer] cProcSize EQU 8 ; size of CProcRec ; SProcRec structure nxtSrch EQU $0 ;[pointer] link to next proc srchproc EQU $4 ;[pointer] pointer to routine sProcSize EQU 8 ; size of SProcRec ; request List structure reqLSize EQU 0 ; request list size [word] reqLData EQU 2 ; request list data [words] ; Point structure v EQU 0 ; vertical coordinate [word] h EQU 2 ; horizontal coordinate [word] ENDIF ; ...already included